Expand get-keymap-bindings test

diff --git a/Cask b/Cask
index 60fa07cbdf2e44cbc90cef66a0d5c2a6c5340fc6..6ff7bbe21dae283fc764f205c6667344798a8dcb 100644 (file)
--- a/Cask
+++ b/Cask
@@ -4,4 +4,5 @@
 (package-file "which-key.el")
 
 (development
+ (depends-on "evil")
  (depends-on "ert"))

diff --git a/which-key-tests.el b/which-key-tests.el
index 17d5d0d4944736bd6343af909a3b818df97238be..eeedb557370752e63d6585389bb24b98d5c2c0ea 100644 (file)
--- a/which-key-tests.el
+++ b/which-key-tests.el
@@ -141,24 +141,41 @@
 
 (ert-deftest which-key-test--get-keymap-bindings ()
   (let ((map (make-sparse-keymap))
+        (evil-local-mode t)
+        (evil-state 'normal)
         which-key-replacement-alist)
+    (require 'evil)
     (define-key map [which-key-a] '(which-key "blah"))
     (define-key map "b" 'ignore)
     (define-key map "c" "c")
     (define-key map "dd" "dd")
     (define-key map "eee" "eee")
     (define-key map "f" [123 45 6])
+    (define-key map (kbd "M-g g") "M-gg")
+    (evil-define-key* 'normal map (kbd "C-h") "C-h-normal")
+    (evil-define-key* 'insert map (kbd "C-h") "C-h-insert")
     (should (equal
              (sort (which-key--get-keymap-bindings map)
                    (lambda (a b) (string-lessp (car a) (car b))))
-             '(("c" . "c")
+             '(("M-g" . "prefix")
+               ("c" . "c")
+               ("d" . "prefix")
+               ("e" . "prefix")
+               ("f" . "{ - C-f"))))
+    (should (equal
+             (sort (which-key--get-keymap-bindings map nil nil nil nil t)
+                   (lambda (a b) (string-lessp (car a) (car b))))
+             '(("C-h" . "C-h-normal")
+               ("M-g" . "prefix")
+               ("c" . "c")
                ("d" . "prefix")
                ("e" . "prefix")
                ("f" . "{ - C-f"))))
     (should (equal
              (sort (which-key--get-keymap-bindings map nil nil nil t)
                    (lambda (a b) (string-lessp (car a) (car b))))
-             '(("c" . "c")
+             '(("M-g g" . "M-gg")
+               ("c" . "c")
                ("d d" . "dd")
                ("e e e" . "eee")
                ("f" . "{ - C-f"))))))